home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / A3.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  74 lines
  1. 10  HGR : HCOLOR= 3
  2. 20 X% = 100:Y% = 80
  3. 22  GOSUB 282
  4. 24 X% = 108
  5. 26  GOSUB 300
  6. 28 X% = 116
  7. 30  GOSUB 222
  8. 32 X% = 124
  9. 34  GOSUB 210
  10. 36 X% = 132
  11. 38  GOSUB 210
  12. 40 X% = 140
  13. 42  GOSUB 300
  14. 44 X% = 148
  15. 46  GOSUB 282
  16. 100  VTAB (21): PRINT "Wrong, this what you would see.  Please wait and try again."
  17. 105  FOR I = 0 TO 1500: NEXT : CALL 62450
  18. 110  PRINT  CHR$(4);"run q10"
  19. 150  END 
  20. 198  REM       P
  21. 200  HPLOT X%,Y% -4 TO X%,Y% -5
  22. 202  HPLOT X% +1,Y% -6 TO X% +4,Y% -6
  23. 204  HPLOT X% +1,Y% -3 TO X% +4,Y% -3
  24. 206  HPLOT X% +4,Y% TO X% +4,Y% -6
  25. 208  RETURN 
  26. 210  REM       E
  27. 212  HPLOT X%,Y% TO X% +4,Y%
  28. 214  HPLOT X% +1,Y% -3 TO X% +4,Y% -3
  29. 216  HPLOT X%,Y% -6 TO X% +4,Y% -6
  30. 218  HPLOT X% +4,Y% TO X% +4,Y% -6
  31. 220  RETURN 
  32. 222  REM       R
  33. 224  HPLOT X% +4,Y% TO X% +4,Y% -6
  34. 226  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  35. 228  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  36. 230  HPLOT X%,Y% -4 TO X%,Y% -5
  37. 232  HPLOT X%,Y%
  38. 234  HPLOT X% +1,Y% -1
  39. 236  HPLOT X% +2,Y% -2
  40. 238  RETURN 
  41. 240  REM      M
  42. 242  HPLOT X%,Y% TO X%,Y% -6
  43. 244  HPLOT X% +1,Y% -5
  44. 246  HPLOT X% +2,Y% -3 TO X% +2,Y% -4
  45. 248  HPLOT X% +3,Y% -5
  46. 250  HPLOT X% +4,Y% TO X% +4,Y% -6
  47. 252  RETURN 
  48. 254  REM       A
  49. 256  HPLOT X%,Y% TO X%,Y% -4
  50. 258  HPLOT X% +4,Y% TO X% +4,Y% -4
  51. 260  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  52. 262  HPLOT X% +1,Y% -5
  53. 264  HPLOT X% +2,Y% -6
  54. 266  HPLOT X% +3,Y% -5
  55. 268  RETURN 
  56. 270  REM       D
  57. 272  HPLOT X%,Y% -1 TO X%,Y% -5
  58. 274  HPLOT X% +1,Y% TO X% +3,Y%
  59. 276  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  60. 278  HPLOT X% +4,Y% TO X% +4,Y% -6
  61. 280  RETURN 
  62. 282  REM       S
  63. 284  HPLOT X%,Y% -1 TO X%,Y% -2
  64. 286  HPLOT X%,Y% -5
  65. 288  HPLOT X% +1,Y% TO X% +3,Y%
  66. 290  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  67. 292  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  68. 294  HPLOT X% +4,Y% -5 TO X% +4,Y% -4
  69. 296  HPLOT X% +4,Y% -1
  70. 298  RETURN 
  71. 300  REM       T
  72. 302  HPLOT X%,Y% -6 TO X% +4,Y% -6
  73. 304  HPLOT X% +2,Y% TO X% +2,Y% -5
  74. 306  RETURN